/* By:      Paul Butterworth (aka Otis)
   Student: University of Auckland Engineering School
            New Zealand
            Electrical Engineering
   Email:   p-j@bigfoot.com (preferred)
            pb@engineer.com
            pbut015@student.auckland.ac.nz

Blazing Comet    16/9/99
*/

Resn=10,

Durn="0.8",

B0="-30 * ( sin(.3 * t) )^2",
B1="60 * ( cos(.3 * t) )",
B2="20 * ( sin(.11 * t) )",

CamX="B0 + 35",
CamY="B1",
CamZ="-14 + B2",

CmLX="35",
CmLY="0",
CmLZ="0",

CUpX="0",
CUpY="0",
CUpZ="1",

C0="(1 - dt) ^ 2",  // fades colours to black
C1="sin(dt * PI * .8 + .1)",   // controls YZ expansion
C2="(abs( mag( 0.05 ) )+ abs( mag( 0.1 ) ) + abs( mag( 0.5 ) ))/3 + .2",   // controls X departure of tail - Any function that takes average amplitude of samples?

D0="abs( mag( s ) )", // sound amplitude for colour
D1="D0* dt^(1/2)",   // diminishing amplitude for sparks
D2="cos(s * PI * 2 + .1*t)",   // makes circle
D3="sin(s * PI * 2 + .1*t)",   // makes circle

X="dt * 120 * C2",
Y="C1*20*D2*C2 + 15*D1*D2",   // position + amplitude deviation
Z="C1*20*D3*C2 + 15*D1*D3",   // position + amplitude deviation


R="C0",
G="C0 * D0 * 2",
B="2 * C0 * pos(D0 - .7) + .1 * dt",

/* Leading colour follows matches the tail colour
LvlR="0",
LvlG="0",
LvlB="0", */

BckR="0",
BckG="0",
BckB="0",

ConL=1,

ConB=0,

LWdt="2",

Fall=".05",

Blrs=0,
BlrB=1,

widt=300,
heig=300,

Scal="500",

ScSz=1,

Pers="75",

Vers=30
